home *** CD-ROM | disk | FTP | other *** search
/ Czech Logic, Card & Gambling Games / Logické hry.iso / hry / Fish Fillets / script / noground / code.lua next >
Encoding:
Text File  |  2005-07-16  |  2.7 KB  |  86 lines
  1.  
  2. -- -----------------------------------------------------------------
  3. -- Init
  4. -- -----------------------------------------------------------------
  5. local function prog_init()
  6.     initModels()
  7.     sound_playMusic("music/rybky06.ogg")
  8.     local pokus = getRestartCount()
  9.  
  10.  
  11.     -- -------------------------------------------------------------
  12.     local function prog_init_room()
  13.         local pom1, pom2, pomb1, pomb2 = 0, 0, false, false
  14.  
  15.         room.uvod = 0
  16.         room.smet = random(1000) + 200
  17.         if random(100) < 10 * pokus - 10 then
  18.             room.uvod = 1
  19.         end
  20.         if random(100) < 10 * pokus - 10 then
  21.             room.smet = -1
  22.         end
  23.  
  24.         return function()
  25.             if isReady(small) and isReady(big) and no_dialog() then
  26.                 if room.smet > 0 then
  27.                     room.smet = room.smet - 1
  28.                 end
  29.                 if room.uvod == 0 then
  30.                     addv(10 + random(30), "nog-v-zvlastni")
  31.                     switch(random(6)){
  32.                         [0] = function()
  33.                             addm(random(5), "nog-m-uvedom0")
  34.                         end,
  35.                         [1] = function()
  36.                             addm(random(5), "nog-m-uvedom0")
  37.                         end,
  38.                         [2] = function()
  39.                             addm(random(5), "nog-m-uvedom1")
  40.                         end,
  41.                         [3] = function()
  42.                             addm(random(5), "nog-m-uvedom1")
  43.                         end,
  44.                         [4] = function()
  45.                             addm(random(5), "nog-m-uvedom0")
  46.                             addm(random(5), "nog-m-uvedom1")
  47.                         end,
  48.                     }
  49.                     room.uvod = 1
  50.                 elseif room.smet == 0 then
  51.                     switch(random(2)){
  52.                         [0] = function()
  53.                             addv(0, "nog-v-smetiste0")
  54.                         end,
  55.                         [1] = function()
  56.                             addv(0, "nog-v-smetiste1")
  57.                         end,
  58.                     }
  59.                     room.smet = -1
  60.                 end
  61.             end
  62.         end
  63.     end
  64.  
  65.     -- --------------------
  66.     local update_table = {}
  67.     local subinit
  68.     subinit = prog_init_room()
  69.     if subinit then
  70.         table.insert(update_table, subinit)
  71.     end
  72.     return update_table
  73. end
  74. local update_table = prog_init()
  75.  
  76.  
  77. -- -----------------------------------------------------------------
  78. -- Update
  79. -- -----------------------------------------------------------------
  80. function prog_update()
  81.     for key, subupdate in pairs(update_table) do
  82.         subupdate()
  83.     end
  84. end
  85.  
  86.